function [status, dat] = jp2read(fname) 
% [status, dat] = jp2read(fname)  read jpeg2000 file
% Based on Kakadu software, kdu_compress
% Peter Burns, 7 May 2010



